home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / ag.for < prev    next >
Text File  |  1993-06-30  |  10KB  |  173 lines
  1. / FORMULAR ANGEBOT
  2. /                              das, was nach / bzw. // steht, wird nicht gedruckt
  3. ^E ^12                      // Druck in Entwurfsqualität, Größe 12 CPI
  4. !LINKER RAND 6              // ein Rand von 6 Zeichen
  5. !AUSDRUCKE 1                // Anzahl der Ausdrucke festlegen
  6. /
  7. !WENN #Seite= 1             // Firmenkopf+ Adresse nur auf 1.Seite drucken
  8. #Firmenkopf                 // Firmenkopf einsetzen (7 Zeilen lang)
  9.  
  10.  
  11.  
  12.   ^17^U#Firmenabsender ^u ^12       // Ihr Absender in 17 CPI & unterstrichen
  13.  
  14.   #Anrede
  15.   #Vorname#Name
  16.   [[#Name2 ]]                       // diese Zeile nicht drucken, wenn Name2 leer
  17.   #Strasse
  18.  
  19. ^F  #Land#Plz  #Ort ^f               // diese Zeile in fett
  20. !ENDE WENN #Seite=1
  21.  
  22. !GEHE ZU ZEILE 15                   // für Druck ab 2. Seite, damit vorgedruckter Briefkopf nicht überschrieben wd.
  23.                                                    Angebot Nr.      : #AtrNr:8:0
  24.                                                    Kunden-Nr.       : #KdNr:8:0
  25.                                                    Datum            : #AGDatum
  26.                                                    [[Valuta           : #ValutaDatum ]]
  27.                                                    [[Seite            : #SEITE2:8:0 ]]  // Erst ab 2.Seite drucken
  28. ^BANGEBOT ^b ^12 #Vermerk
  29. [[#Kopftext:79 ]]
  30. ──────────────────────────────────────────────────────────────────────────────
  31. Artikelnr. Bezeichnung                        Menge Einh.   E-PREIS    G-Preis #Rabattitel
  32. ──────────────────────────────────────────────────────────────────────────────
  33. /234567890 123456789012345678901234567890 123456789 12345 123456789 1234567890 12.45%
  34. /*****************************************************************************
  35. !LISTE:35:47                           // Liste max.bis Druckzeile 35 bzw. 47
  36. /
  37. !#GP:= 0
  38. !WENN .NOT. #TextPosition
  39.   !#GP:= Round( #Men * #EPreis, 2)                    // Ges.Preis Position
  40.   !#GP:= #GP - Round( #GP * #RabattProz / 100, 2)     // Rabatt abziehen
  41.   !#GP:= #GP - Round( #GP * #RabattProz2/ 100, 2)     // 2. Rabatt abziehen
  42.   !#Summe:= #Summe+ #GP                               // Auftragssumme addieren
  43.   !#NettoSumme1:= #NettoSumme1+ #NettoPreisSteuer1    // Nettobetrag für 1. Mwstsatz
  44.   !#NettoSumme2:= #NettoSumme2+ #NettoPreisSteuer2    // Nettobetrag für 2. Mwstsatz
  45.   !#RabattGesamt:= #RabattGesamt+ Round( #MEN * #EPreis,2) - #GP
  46. !ENDE WENN
  47. /
  48. #ArtNr     #ArtText:30                    #MEN:9    #EINH #EPreis:9 [#GP:10 ]    ^17 #Rabatt1 #Rabatt2 ^12
  49. !ENDELISTE
  50. /*****************************************************************************
  51. /!GEHE ZU ZEILE 45                    // hiermit kann die Endsumme fest positioniert werden
  52. ──────────────────────────────────────────────────────────────────────────────
  53. !WENN #LetzteSeite
  54. !WENN #AtrBrutto
  55.                                                [[Rabatt gesamt      : #RabattGesamt:10 #Währung ]]
  56.                                                Summe              : #Summe:10:2 #Währung
  57.                                                [[#StBez #STP1 incl. : #SteuerSumme1:10 #Währung ]]
  58.                                                [[#StBez #STP2 incl. : #SteuerSumme2:10 #Währung ]]
  59.                                                ───────────────────────────────
  60.                                               ^F Endbetrag          : #Summe:10  #Währung ^f
  61.                                                ═══════════════════════════════
  62. !ENDE WENN
  63. !WENN #AtrNetto
  64.                                                [[Rabatt gesamt      : #RabattGesamt:10 #Währung ]]
  65.                                                Summe              : #Summe:10:2 #Währung
  66.                                                [[#StBez #STP1 zzgl. : #SteuerSumme1:10 #Währung ]]
  67.                                                [[#StBez #STP2 zzgl. : #SteuerSumme2:10 #Währung ]]
  68.                                                ───────────────────────────────
  69.                                               ^F Endbetrag          : #BruttoSumme:10 #Währung ^f
  70.                                                ═══════════════════════════════
  71. !ENDE WENN
  72.  
  73. [[Zahlbar innerhalb #ZahlungIn Tagen bis zum #ZahlungbisDatum ohne Abzüge.]]
  74. [[Bei Zahlung innerhalb #Skontotage Tagen bis zum #SkontoBisDatum #SkontoProz:5 % Skonto =#SkontoBetrag:7 #Währung ]]
  75.  
  76. [[#Fusstext:79 ]]
  77. /
  78. !GEHE ZU ZEILE 58
  79. ^17#Bank1                                    #Bank2                                    #Bank3                                    ^12
  80. ^17#Blz1             #Kontonr1               #Blz2             #Kontonr2               #Blz3             #Kontonr3               ^12
  81. /
  82. !ENDE WENN #LetzteSeite
  83. !SEITENAUSWURF
  84. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  85.  
  86.  
  87.  
  88.  
  89. *******************************************************************************
  90. / Es folgt die Definition der Platzhalter, die Sie nicht löschen sollten.
  91. / Sie können die Platzhalter ändern und ergänzen, allerdings auf eigene Gefahr.
  92. *******************************************************************************
  93. !PLATZHALTER
  94.   #AtrNr ,           ako->at_nr
  95.   #KdNr ,            ako->at_kdnr
  96.   #FIRMENABSENDER ,  fir->fenster
  97.   #ANREDE ,          kun->anrede
  98.   #VORNAME ,         LTrim( Trim( kun->n1)+ ' ')
  99.   #NAME ,            kun->n2
  100.   #NAME2 ,           kun->ansprechp
  101.   #STRASSE ,         kun->strasse
  102.   #LAND ,            Trim( kun->land)+ IF( .NOT. Empty( kun->land), '-', '')
  103.   #PLZ ,             kun->plz
  104.   #ORT ,             kun->ort
  105.   #Briefanrede,      Trim( kun->briefanred)+ IF( ! Empty( kun->briefanred), ',', '')
  106.  
  107.   #AgDatum ,         ako->at_dat       // Datum des Angebots (=Auftrag vom)
  108.   #AbDatum ,         ako->at_bestdat   // Datum der Auftragsbestätigung
  109.   #LsDatum ,         ako->at_liefdat   // Datum des Lieferscheins (falls gedruckt)
  110.   #RgDatum ,         ako->at_rgdat     // Datum der Rechnung
  111.   #GsDatum ,         ako->at_rgdat     // Datum der Gutschrift
  112.   #ValutaDatum,      ako->at_valuta
  113.   #AtrBrutto ,       ako->at_mwstinc='J'    // Auftrag=Brutto (Mwst. incl.)
  114.   #AtrNetto ,        ako->at_mwstinc$'N0'   // Auftrag=Netto  (Mwst. zzgl.)
  115.   #AtrAusland ,      ako->at_mwstinc='0'    // Auftrag Ohne Steuer
  116.   #AtrRabatt ,       ako->at_rabatt    // im Auftragskopf eingegebener Rabatt
  117.  
  118.   #TextPosition,     IsTextApo()       // enthält Position nur Text?
  119.   #RabattProz,       apo->art_rabatt   // Rabatt der einzelnen Position
  120.   #RabattProz2,      kun->rabatt2      // zusätzlicher fester 2.Kundenrabatt
  121.   #Rabattitel,       IF( #AtrRabatt <> 0, 'Rabatt', '')
  122.   #Rabatt1,          IF( Empty( #RabattProz) .OR. IsTextApo(),  '      ', Str( #RabattProz,5,2)+ '%')
  123.   #Rabatt2,          IF( Empty( #RabattProz2) .OR. IsTextApo(), '', Str( #RabattProz2,5,2)+ '%')
  124.   #EINH,             apo->Mengeneinh
  125.   #MEN ,             IF( IsTextApo(), '', apo->liefmenge ) // Menge der Position
  126.   #EPreis ,          IF( IsTextApo(), '', apo->epreis )    // Einzelpreis der Position
  127.   #GP ,              gespreis          // Variable für den berechneten GPreis
  128.   #Summe,            Summe             // Auftr.summe Netto bzw. Brutto
  129.   #RabattGesamt,     rabattges         // Rabattbetrag des Auftrags Netto bzw. Brutto
  130.   #StBez ,           fir->bezsteuer    // Bezeichnung der Steuer: Mwst./WUST...
  131.   #STP1 ,            MwstForm( fir->mwst1)
  132.   #STP2 ,            MwstForm( fir->mwst2)
  133.   #NettoSumme1 ,     NettoSum1         // Nettosumme für Art. mit 1. Mwstsatz
  134.   #NettoSumme2 ,     NettoSum2         // Nettosumme für Art. mit 2. Mwstsatz
  135.  
  136.   #SteuerSumme1 ,    NettoSum1 * fir->mwst1 / 100  // Steuerbetrag für Steuersatz 1
  137.   #SteuerSumme2 ,    NettoSum2 * fir->mwst2 / 100  // Steuerbetrag für Steuersatz 2
  138.   #BruttoSumme ,     #Summe + #SteuerSumme1 + #SteuerSumme2
  139.   #Auftragsumme,     IF( #AtrBrutto, #Summe, #BruttoSumme )  // Endsumme Auftrag
  140.  
  141.   #Pos,              apo->pos+ IF( Empty( apo->pos), ' ', '.') // Durchnummerierung der Positionen
  142.   #ArtNr ,           IF( IsTextApo( apo->art_nr), '          ', apo->art_nr)
  143.   #ArtName ,         Trim( apo->Art_name)        // Artikelkurzbezeichung
  144.   #ArtText ,         Trim( apo->Text)            // Ausführlicher Text
  145.   #ArtStSatz ,       apo->art_mwsatz             // Steuersatz: 1/2/0
  146.   #ArtStProz ,       mwst( #ArtStSatz)           // Steuer-Prozentsatz
  147.   #ArtSteuer1 ,      IF( #ArtStSatz= 1, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
  148.   #ArtSteuer2 ,      IF( #ArtStSatz= 2, IF( ako->at_mwstinc='N', #GP* #ArtStProz/100, #GP- #GP /( 1+ #ArtStProz/100)), 0)
  149.   #NettoPreisSteuer1, IF( apo->art_mwsatz= 1, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
  150.   #NettoPreisSteuer2, IF( apo->art_mwsatz= 2, IF( ako->at_mwstinc='N', #GP, #GP /( 1+ #ArtStProz/100)), 0)
  151.  
  152.   #Vermerk,          IF( Substr( ako->at_titel,1,1)= '"', '', ako->at_titel)
  153.   #Kopftext ,        IF( #Seite=1, ako->at_kopf, '')
  154.   #Fusstext ,        ako->at_fuss
  155.   #Nachnahme,        "Nachnahme" $ "#Fusstext"    // Steht "Nachn." im Fusstext des Auftrags?
  156.  
  157.   #ZahlungIn,        ako->zahlungin    // Zahlbar innerhalb .. Tagen
  158.   #ZahlungBisDatum,  IF( #ZahlungIn = 0, '', ako->at_rgdat + #ZahlungIn )
  159.   #SkontoProz,       ako->skonto       // Skonto in Prozent
  160.   #SkontoTage,       ako->skontotage   // Tage, innerhalb deren Skonto gewährt wird
  161.   #SkontoBisDatum,   ako->at_rgdat + #SkontoTage
  162.   #SkontoBetrag,     #Auftragsumme * (#SkontoProz / 100)
  163.  
  164.   #Bank1,            fir->bank1        // 1. Bankverbindung
  165.   #Blz1,             fir->blz_1
  166.   #Kontonr1,         fir->knr_1
  167.   #Bank2,            fir->bank2        // 2. Bankverbindung
  168.   #Blz2,             fir->blz_2
  169.   #Kontonr2,         fir->knr_2
  170.   #Bank3,            Trim( fir->bank3) // 3. Bankverbindung
  171.   #Blz3,             fir->blz_3
  172.   #Kontonr3,         Trim( fir->knr_3)
  173. !ENDE PLATZHALTER